home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 July / PCpro_2004_07.ISO / files / software / myhtpc / Nimo50Build9Beta1.exe / Div Fix / Source / About.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-01-28  |  1.7 KB  |  68 lines
  1. {DivFix is a utility for reindexing partial DivX AVI movies
  2. Copyright (C) 2000-2002  Csaba Budai
  3.  
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  8.  
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. GNU General Public License for more details.
  13.  
  14. You should have received a copy of the GNU General Public License
  15. along with this program; if not, write to the Free Software
  16. Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA}
  17.  
  18. unit About;
  19.  
  20. interface
  21.  
  22. uses
  23.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  24.   StdCtrls, ExtCtrls;
  25.  
  26. type
  27.   TForm2 = class(TForm)
  28.     StaticText1: TStaticText;
  29.     Button1: TButton;
  30.     StaticText2: TStaticText;
  31.     StaticText4: TStaticText;
  32.     StaticText5: TStaticText;
  33.     StaticText6: TStaticText;
  34.     StaticText7: TStaticText;
  35.     StaticText3: TStaticText;
  36.     Bevel1: TBevel;
  37.     StaticText8: TStaticText;
  38.     Bevel2: TBevel;
  39.     StaticText9: TStaticText;
  40.     StaticText10: TStaticText;
  41.     Bevel3: TBevel;
  42.     Bevel5: TBevel;
  43.     Bevel4: TBevel;
  44.     Bevel6: TBevel;
  45.     StaticText11: TStaticText;
  46.     StaticText12: TStaticText;
  47.     Memo1: TMemo;
  48.     procedure Button1Click(Sender: TObject);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  54.  
  55. var
  56.   Form2: TForm2;
  57.  
  58. implementation
  59.  
  60. {$R *.DFM}
  61.  
  62. procedure TForm2.Button1Click(Sender: TObject);
  63. begin
  64.     Form2.Close;
  65. end;
  66.  
  67. end.
  68.